0 REM COPYRIGHT 1991 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
100 POKE 53280,0:POKE 53281,0
110 PRINT"[147][155]":A$="CLEARING THE BITMAP...":A=LEN(A$)
120 FOR X=1 TO 20-A/2:PRINT" ";:NEXT:PRINTA$
130 FOR X=8192 TO 16192:POKE X,0:NEXT
140 AX=1:AY=1:BX=319:BY=1:CX=160:CY=199
150 POKE 53265,(PEEK(53265) OR 32)
160 POKE 53270,((PEEK(53270) AND 223) OR 16)
170 POKE 53272,((PEEK(53272) AND 240) OR 8)
180 PRINT"[147]":FOR X=1024 TO 2024:POKE X,255:NEXT
190 X=INT((RND(TI)*319)+1)
200 Y=INT((RND(TI)*199)+1)
210 FORI=1TO10000
220 P1=AX:P2=AY:GOSUB360:P1=BX:P2=BY:GOSUB360
230 P1=CX:P2=CY:GOSUB360
240 IFI>1THENX=KX
250 IFI>1THENY=KY
260 P=INT((RND(TI)*6)+1)
270 IF P=1THENDX=AX:DY=AY
280 IF P=2THENDX=AX:DY=AY
290 IF P=3THENDX=BX:DY=BY
300 IF P=4THENDX=BX:DY=BY
310 IF P=6THENDX=CX:DY=CY
320 KX=(DX+X)/2:KY=(DY+Y)/2
330 P1=KX:P2=KY:GOSUB360
340 IF I=10000THENEND
350 NEXT I
360 BT=8192+INT(P2/8)*320+INT(P1/8)*8+(P2 AND 7)
370 POKE BT,PEEK(BT) OR 2^(7-(P1 AND 7))
380 RETURN